home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / network / cisco / ios7decrypt.pl < prev    next >
Encoding:
Perl Script  |  2005-02-12  |  916 b   |  28 lines
  1. #!/usr/bin/perl -w
  2. # $Id: ios7decrypt.pl,v 1.1.1.1 2005/02/12 19:46:14 loni Exp $
  3. #
  4. # Credits for orginal code and description hobbit@avian.org,
  5. # SPHiXe, .mudge et al. and for John Bashinski <jbash@CISCO.COM>
  6. # for Cisco IOS password encryption facts.
  7. #
  8. # Use for any malice or illegal purposes strictly prohibited!
  9. #
  10.  
  11. @xlat = ( 0x64, 0x73, 0x66, 0x64, 0x3b, 0x6b, 0x66, 0x6f, 0x41,
  12.           0x2c, 0x2e, 0x69, 0x79, 0x65, 0x77, 0x72, 0x6b, 0x6c,
  13.           0x64, 0x4a, 0x4b, 0x44, 0x48, 0x53 , 0x55, 0x42 );
  14.  
  15. while (<>) {
  16.         if (/(password|md5)\s+7\s+([\da-f]+)/io) {
  17.             if (!(length($2) & 1)) {
  18.                 $ep = $2; $dp = "";
  19.                 ($s, $e) = ($2 =~ /^(..)(.+)/o);
  20.                 for ($i = 0; $i < length($e); $i+=2) {
  21.                     $dp .= sprintf "%c",hex(substr($e,$i,2))^$xlat[$s++];
  22.                 }
  23.                 s/7\s+$ep/$dp/;
  24.             }
  25.         }
  26.         print;
  27. }
  28.